home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
TASEXAM6.ARJ
/
BASE8.TAS
< prev
next >
Wrap
Text File
|
1991-11-24
|
897b
|
26 lines
{BASE8.TAS} {Written by Domenic Bianco Prodigy # CXGV38A 11/16/91}
{This script tries to identify an 8 week base where pricing is stable.}
{Simple moving averages and 200 day high are compared with closing prices.
}
{Output is sorted and printed.}
#OUTPUT_FILE 'base8.lst'
IF first_ticker
begin
writeln(' 200 Day Last 50Day Avg $ Last 50Day');
writeln('TICKER High Close MovAvg -8 wks Volume MovVL'
);
writeln('----------------------------------------------------------');
end
PMOV50:=MOV(C,50,'S');
hi:=hhv(h,200);
VMOV50:=MOV(V,50,'S');
P200:=(C[-40]+C[-39]+C[-38]+C[-37]+C[-36])/5;
if c>.9*hi and c[0] <=1.10*PMOV50 and C[0]>.85*P200 and C[0]<=1.10*P200
sortout(TICKER,hi,C[0],PMOV50,P200,V[0],VMOV50);
if last_ticker
BEGIN
sorton(1,'a')
sortget(V1,V2,V3,V4,V5,V6,v7);
sortprint('%s %7.2f %7.2f %7.2f %7.2f %8.0f %8.0f\n');
END